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: 1 0001 MODULE RPGSHANDLER ( ZTITLE ‘RPG error handler’ ; 
; ¢ B008 IDENT = '1=003' ! FILE: RPGHANDLE.B32 ED1T:DG1003 ‘ 
; O08 0 d= ; 
oto oe oi 
: § pees : RITIITIIITISITIITITITI TT ILIT IIIT TT ITT TTT TILT TLL TT TTT titi LiLi Tir i titi iii : 
: \® # : 
b>: § 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : | 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
; 19 Baio ! :* ALL RIGHTS RESERVED. * ; 
+4 4 ® . 
: \¢ pore 1 !* ros SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
Tame 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
; 6 66 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
eS. 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
s 6 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
; i? id EA : hd TRANSFERRED. * ‘ 
3 '® * . 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; @ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $3 bos) : :* CORPORATION. * : 
s '* ® ° 
eS 0095 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
> 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
7 oe 0025 1 !* * ; 
> 26 0026 1 is . | ; 
$ a7 0027 1 lee e eee eee ee ARERR ERATE REAR . 
- & 0028 1! ; 
;.-& 0029 1! ; 
ae 0030 1 !++ | . 
; Hy bos, ' FACILITY: RPGII SUPPORT ; 
cs io 0033 1 ! ABSTRACT: This procedure is the error handler for RPGII error | . 
; 0034 1! conditions. It gets invoked as a resuit of a call ; 
eS oe 0035 1! to LIBSSIGNAL. ‘ 
C7 0036 1 | | ; 
; aw 0037 1! ‘ 
: $6 site : : ENVIRONMENT: Vax-11 User Mode ; 
; re poee : ; AUTHOR: Debess Grabazs, CREATION DATE: 18-JAN-1983 

; «42 0042 1 | MODIFIED BY: 

; $3 0045 ! 

: «646 0044 1 | 1-001 - Original. DG 18-JAN-1983 

3. 46> 0045 1 ! 1-002 - Added conversion of COB$ error codes to RPGS equivalents. 

: 46 0046 1! 1-MAY-1983 

s 67 0047 1 ! 1-003 - Make sure conversion of error codes generated by COBOL to RPGS 

3 3 Boee : 2 equivalents is only done when calied by RPGSDSPLY. DG 12-OCT-1983 | 

;) = 0050 1 i- 

ae 0051 1 

oe 0052 1 !<BLF/PAGE> 
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RPG error handler 
Declarations 


BSBTTL ‘Declarations’ 
PROLOGUE FILE: 


REQUIRE ‘RTLIN:RPGPROLOG'; 


14+ 

! LINKAGES 
NONE 
14 


| TABLE OF CONTENTS: 


FORWARD ROUTINE 
RPGSHANDLER ; 


\4 
' INCLUDE FILES 
: NONE 


14 
EQUATED SYMBOLS 


LITERAL 
CVTTP_OPCODE 
CVTSP~OPCODE 


'¢ 


EXTERNAL REFERENCES 


EXTERNAL ROUTINE 
LIBSSIGNAL ; 


EXTERNAL LITERAL 
OBS 


RG , 
RPGS— INVARRIND 
RPGS— INVNUMF LD 
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ches, PSECTs, macros, | 
kages and LIBRARYs 


37 


Opcode value for CVTTP instruction 
Opcode value for CVTSP instruction 


Stop execution via signalling 


Error during ACCEPT 

Error during DISPLAY 
Invalid argument 

Error during DSPLY signal 
Invalid argument signal 
Invalid array index signal 


EOF on ACCEPT 
Invalid numeric field signal 


ANDLER RPG error handler 
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74 
RPGRTL.SRCJRPGHANDLE .B32;1 (3 


COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 

NOTES: 


The macro field references bogiansn with ‘CHF’ refer to 


condition handling argument List offsets. 


: 110 0172 1 XSBTTL 'RPGSHANDLER - RPG error handler’ 

s 493 pif 1 GLOBAL ROUTINE RPGSHANDLER( 

$ 11§ 174 «1 SIGNAL: REF BLOCK p-OvTe P ' Nature of the condition 

: BF 0176 : RE CHANISR REF BLOCK [,BYTE ! State of process at time of signal 
: 115 77 1 : | 
: 116 0178 1 44 

: 117 0179 1! 

: 18 8180 : } FUNCTIONAL DESCRIPTION: 

: 120 B1s¢ 1 / This routine is the error handler for RPGII error conditions. 

: 1s) 8187 ! It gets invoked as a result of a call to LIBSSIGNAL. | 
: 138 0185 CALLING SEQUENCE: | 
: i$? 3444 : RPGSHANDLER (signal.rr.r, mechanism.rr.r) 

: 139 0189 FORMAL PARAMETERS: 
: 129 0191 1: signal Address of vector of longwords indicating 

3 130 8138 ; the nature of condition. 

: 132 0194 1! mechanism Address of vector of longwords indicating 

3 13? B32 ; the state of the process. 

; 5 197 { IMPLICIT INPUTS: 

: 137 99 1! 

3; «138 00 1! 

H ; ; 4 : IMPLICIT OUTPUTS: 

: } 08 ; NONE 

: ; 05 ROUTINE VALUE: 

: 3 07 SS$_RESIGNAL 

: 147 9 1! 

> 148 01: 

- et 

: 151 g 1 

s 52 6 1! 

> 153 5 1) 

3; 6154 6 1! 

2 155 7 © 

; 156 8 1! 

> 157 9 1! 

: 158 01! 

: 159 1 ee 

; 160 Bp es 
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1-00 RPGSHANDLER = RPG error handler 12286871382 98 date RPGRTL.SRCJRPGHANDLE .832;1 . (4) 
3 BEGIN | 
LOCAL 
CONDITION, ! Condition that was signalled 
USER_PC; A counter where exception took 
! place 


1+ 
Find out if it is a signal of interest. 
CONDITION = .SIGNAL CCHFSL_SIG_NAME]; ! Fetch condition value from signal array 
+ 
Select appropriate action based on which one we have. 
| 
| 
} 
| 
| 
| 
| 
| 


peewee lolololololololelololo) 


SELECTONE .CONDITION OF 
SET 
CSS$_ROPRAND]: ! Was a SS$_ROPRAND 
BEGIN 


1+ 

! Using the signal argument vector, extract 
! the ers ram counter at the time the 
SS$_ROPRAND occurred. 


USER_PC = .SIGNAL C(.SIGNAL CCHFSL_SIG_ARGS] - 1 ) * ZUPVAL, 0, %BPVAL, 0] ; 


1+ 

! Check to see if a CVTTP or a CVTSP instruction 

! was the generator of the signal. Note that the 

! PC is pointing to the instruction that caused the 
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fault. 
IF ( .(.USER_PC)<0,8> EQL CVTTP_OPCODE OR 
. (,USER_PC)<0,8> EQL CVTSP_OPCODE ) 

THEN 
04 ‘+ 
05 $ ' Set the first longqword of the signal ergunent 
06 6 ' vector (the condition value field) to the 
07 6 ' condition being Signal led. In this case, the 
oS $ ' condition is invalid decimal data. 
10 71 : 
, SIGNAL CCHFSL_SIG_NAME] = RPGS_INVNUMFLD ; 
ig 74 
8 o END ; 
16 7 CSS$_SUBRNG): ! Was a SS$_SUBRNG 
1; , BEGIN 
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; 219 0280 1+ 
: 0 1 ! First make sure that the error occurred during a 
; : ¢ : call from RPGSOSPLY and not from a user subroutine 
; i 
: 224 6 5 IF .MECHANISM CCHFSL_MCH_DEPTH] EQL 0 
3 5 0 § THEN 
3 6 0 
: ? 0288 14 
; 8 0289 ' Set the first longword of the Signet argument 
; 9 0290 ! vector (the condition value field) to the 
; 0 8 91 ! condition being signalled. In this case, the 
: 1 35 ! condition is subscript out of range. 
: $38 0594 a 
; $32 $598 SIGNAL CCHFSL_SIG_NAME] = RPG$_INVARRIND; ! Set to RPG signal 
; tH 0296 2 END; 
; 236 0297 $ 
3 tH 0298 CCOB$_ERRDURACC, 
: 38 0299 COB$_EOFON_ACC : 
> 239 0300 COB$-ERRDURDIS): ! Was an error during ACCEPT or DISPLAY 
: seo 0301 BEGIN 
> 241 Oa08 
; seg 030 + 
; € 0304 ' Set the first longword of the signal argument 
3 Sed 0305 3 ' vector (the condition value field) to the 
: 245 0306 ; ' condition being signalled. 
; 246 0307 !- 
; 247 0308 ; 
; 248 0309 SIGNAL CCHFS$L_SIG_NAME] = RPG$_ERRDURDSP; ! Set to RPG signal 
> 249 0310 2 END; 
; en 0311 2 
: 251 O36 CCOBS_INVARG): ! Was a COBS_INVARG 
: $26 031 BEGIN 
i oe 0314 
; 254 0315 3 + 
: 255 0316 3 ! Set the first longword of the signal argument 
3; €6 0317 ; ' vector (the condition value field) to the 
3 gor 0318 ! condition being signalled. 
; ge 0319 !- 
3 afP 0320 
; 260 0321 SIGNAL CCHFSL_SIG_NAME] = RPGS_INVARG;! Set to RPG signal 
: 261 8358 END; 
: 88 $354 COTHERWISE): ! No match occurred 
6 
; 264 0325 3 ! No change 
; 265 b35$ 
: 266 0327 TES; 
: 267 0328 
; 268 b385 '¢ ; : 
; 269 330 ! Resignal the error with the signal name changed where 
; 270 331 ! appropriate. 
: I 3 § != 
: 7 4 RETURN SS$_RESIGNAL 
: 74 8 5 
3 es 6 1 END; 
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134 bytes, Routine Base: 


5 
00000454 8 
5 
5 
2 


63 000000006 


QOOOO4AC = BF 


63 000000006 


000000006 8F 
00000000G 8F 
00000000G 8F 


63 000000006 


000000006 8F 


1 
1 EN 
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000 


1$: 
23: 


3$: 


4$: 
5$: 


6$: 
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GNAL coBs EOFON_ACC 
“ERRDURAC 

~INVARG, “Rbcs- ERRDURDSP 
“INVARG, RPG$~INVARRIND 
“INV NURELD 
_RPGSCODE, NOWRT, SHR, PIC,2 
RPGSHANDLER, Save R2.R3 
SIGNAL, R 

4(R2), R 

(R3), CONDITION 

CONDITION, #1108 


-4( ind) Eon, sMger. PC 


eet pth "9 
#RPGS_INVNUMFLD, (R3) 
CONDITION, #1196 
MECHANISM, R2 

8(R2) 


#RPGS$_INVARRIND, (R3) 
CONDITION, #COB$_ERRDURACC 
CONDITION, #COBS$_EOFON_ACC 
CONDITION, #COB$_ERRDURDIS 
PRPGS_ERRDURDSP,, (R3) 
CONDITION, #COBS_INVARG 


#RPGS_INVARG, (R3) 
#23287 RO 


Page 


AK-11 Bliss -32 vV4.0-74 Page 


14 
RPGSHANDLER RPG error handler 15-Sep-1984 96:13 2:15:35 
1 3 14-Sep-1984 :18 RPGRTL. $Rci RPGHANDLE .B52;1 


RPGSHANDLER = RPG error handler 


PSECT SUMMARY 
Name Bytes Attributes 
_RPGSCODE 134 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; onsenees Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

: $255SDUAZB: SYSLIBISTARLET.L32;1 9776 6 : 581 00:01.0 
3 55$DUA28: CRPGRTL.OBJJRP (iaci 32;1 54 0 9 00:00.1 


; COMMAND QUALIFIERS 
BLISS/CHECK=CFIELD, INITIAL OPTIMIZE) /NOTRACE/L IS@L ISS :RPGHANDLE /0B.)=08.)S :RPGHANDLE MSRCS%:RPGHANDLE /UPDATE=(ENHS: RPGHANDLE 


ha Fe 134 code ; 0 data bytes 
classed fees 00:18.1 
Lines/CPU Min: 4336 


Ronenee/SPU-Higs 8891 
Y Used: 51 pages 
eee ation Complete 
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